home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / System Software (8-bit) / Disk Images / ProDOS Users Disk / STARTUP2.bas < prev    next >
Encoding:
BASIC Source File  |  1988-02-18  |  1.2 KB  |  27 lines
  1. 10  TEXT : HOME 
  2. 15 D$ =  CHR$(4)
  3. 16  PRINT D$;"PREFIX /PRO"
  4. 20  HTAB 13: PRINT "Selection Menu"
  5. 30  VTAB 5: PRINT "A..ProDOS"
  6. 40  VTAB 7: PRINT "B..Basic"
  7. 50  VTAB 9: PRINT "C..MousePaint"
  8. 72  VTAB 11: PRINT "D..Dos 3.3"
  9. 74  VTAB 13: PRINT "E..AppleWorks"
  10. 76  VTAB 15: PRINT "F..Applewriter //"
  11. 77  VTAB 5: HTAB 20: PRINT "G..Access //"
  12. 78  VTAB 7: HTAB 20: PRINT "H..Utilities"
  13. 79  VTAB 9: HTAB 20: PRINT "Q..Quit"
  14. 80  VTAB 20: PRINT "Enter Choice From Menu ";
  15. 85  GET A$
  16. 90  IF A$ = "A"  OR A$ = "a"  THEN  PRINT D$;"-/PRO/UTILITIES/STARTUP"
  17. 100  IF A$ = "E"  OR A$ = "e"  THEN  PRINT D$;"-/PRO/APPLEWORKS/APLWORKS.SYSTEM"
  18. 110  IF A$ = "C"  OR A$ = "c"  THEN  PRINT D$;"PREFIX /PRO/MOUSEPAINT": PRINT D$;"-START.INTRO"
  19. 130  IF A$ = "D"  OR A$ = "d"  THEN  PRINT D$;"PR#6"
  20. 140  IF A$ = "Q"  OR A$ = "q"  THEN  HOME : GOTO 165
  21. 150  IF A$ = "B"  OR A$ = "b"  THEN  HOME : NEW 
  22. 155  IF A$ = "F"  OR A$ = "f"  THEN  PRINT D$;"PREFIX /PRO/AW2": PRINT D$;"-AW.SYSTEM"
  23. 156  IF A$ = "G"  OR A$ = "g"  THEN  PRINT D$;"PREFIX /PRO/ACS": PRINT D$;"-LOADER.SYSTEM"
  24. 158  IF A$ = "H"  OR A$ = "h"  THEN  PRINT D$;"PREFIX /PRO/UTIL": PRINT D$;"-STARTUP"
  25. 160  PRINT  CHR$(7): GOTO 10
  26. 165  VTAB 11: HTAB 8: PRINT "..Please Reboot System..": END 
  27. 1000  END